#!/usr/bin/perl -w

foreach (@ARGV) {
  if ( -o $_ and -w _ and -r _ ) {
  print "The file $_ is readeble and writeble \n";
  }
}
